home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / TEXTLINE.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  398b  |  22 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3.  
  4. FUNCTION TextLine$ (Row%)
  5.   
  6.     REDIM Array%(160)
  7.     Empty$ = STRING$(80, 32)
  8.   
  9.     IF Row% < 1 OR Row% > 25 THEN
  10.         TextLine$ = Empty$
  11.     END IF
  12.   
  13.     GetScreen Array%(1), Row%, 1, Row%, 80
  14.     FOR j% = 1 TO 80
  15.         CALL SpltByte(Array%(j%), Upper%, Lower%)
  16.         MID$(Empty$, j%, 1) = CHR$(Lower%)
  17.     NEXT j%
  18.     TextLine$ = Empty$
  19.  
  20. END FUNCTION
  21.  
  22.